LABEL 00O0O000OPRIMER001750VVCC tX QBJECT/REmUJF KE SOURCE* iLE = SYMBUt./LUAU; END* 



OBJECT /READ 



r 

2 

I 3 
I 4 

6 

7 1 

81 

a L 
10' 

11 

12 

13 

14 
15 
16 
17 
18 
19 
20 

21 _ 

F 
i 23 

24 

25 

26 

27 

28 

29 

30 

31 ~~ 

32 

33 

34 

35 

36 

37 _ 

38 

39 

40 

11 

<2 

13 




ISATJ 



3 
4 
5 

6 

7 

8 ' 
9 
10 
11 < 
12 



45 
46 
47 
(8 
49 
50 
51 
52 
53 
54 
55 
56 



> 



m 
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BEGIN 

% tOAD/CANDE 

COM MENT! » 

* 



SOURCE PROGRAM, REVISED 7/72 CSHM) 

TlILf J B5500/B570 Q MARK XIV SYSTFM HELFA3F _*_ 

FILE IDI SYMBOL/LOAD TAPE IQI SYMBUL2/FILE000 * 
THIS MATERIAL IS PROPRUTAKY To BURHQUGH5 CORPORATION * 

AND IS NOT TO BE R E PRODUCED* USED. U R DISC LOSED *_ 

EXCEPT H ACCORDANCE rtlTH PHQGRAM |_1CEnSE OR UPON * 



00010000 
00010100 

JLCLOJJLlJJL 



EXCEPT IN «i/Uunu«iNOt n*in r n u u H A I*! |_ i l< L l\ a E. U H UT 

WRITTEN AUTHORIZATION OF THE PATENT UIvlSlQN OF 
* BURROUGHS CORPORATION* DETROIT, MICHIGAN 46232 



oooioin 

00010U2 
00010113 



00010114 

00010115 

-0-flOlPJLL6. 



* COPYRIGHT (C) 1971* 1972 BURROUGHS CORPORATION 

* AA1202C6 AA112___ 6 AA366657 ....__ 



REAL COMMON) 
SAVE ARRAY ACO •* 30 ] ,BUFFtRl *8UFF£R2 CO * 300 j; 
_SAy.e_ARJ.AY N.£Q1.30]*DISKR0WS[0tl9]; 

DCAl A O * D • C -r A m T i~ m - n <t n „..»-.„ _ 



* 
* 



00010117 

00010118 

_0Q0j_0_L3___ 



REAL APTRf ASTART, EOFPTR, felDRO, FIO* I, LINE* 

LREC# MFID* NCT* NPTR* PREVSEQ* RESULT1* RESULTS* RPB* RSIZE* 

SEQLOC* SPB* SPR* SR££SEQ* USE.R*JiP6* 

BOOLEAN BRAAK, CONCISE* OK* CEREAL* 

LABEL ERR* EXIT; 

DEFINE EOFMARK»_10000CCOO#, MASfts3"20OOC00 p 0OO M #* 

DEFINE M S GS I z E » ( { A> f R .1 3 31 1 S 3 - AS T A R 7 ) x 8 7 APT R 7 [ 3 C )"t 3 i ')* } 

FILE OUT NEKTAB DISK SERIAL t20»30 J ( 2,30, 300 » SAVE \)i 
*************************** ***************** *_■■ -■-—-■■■ ■ • 

PROCEDURE DiSKWAlf'ri 7a*S*dT; 

CQMMUNICATE(-b)* 



00010200 
00010300 

..flj_JUJl-__Q . 
00010500 
00010600 

00010800 
00010900 

opo_io_oo 



oooiuoo 

00011200 

*.*..*.** *±*A±**A*JLt**±* *.**.**.*.* Q. Q Oj, 1__2 Q 

0001HOO 
00011500 




siisloc n; dp»a; ds!»bdecj 
supres<di»»di«8; dsi»7fild; 

... EN.Q ... IT ____H._ PROCEDURE QllTr OMV; 



00012300 
00012400 
J___Q1.25__a.. 



»* "" ■ » ' _U__J > _._L___ 

%*******************************. ***************************************,| r QQyj26Q0 

STREAM PROCEDURE M0VE(N*A,6>; VALUE N; 00012700 

■MG.IN SI» 8 A; DLi-iBj US: = N WPS* El\D; __ _ 0Q0i2fl0Q 



L- y. j_ ____ . i_uy_L______ 

*************************************** ************************** *******0OQl2900 
REAL STREAM PROCEDURE AODRESSCA)* 00013000 

BEfilN SII.'AI ADQR ESSt sSI; END! Q0013100 

********* ****************************************00013200 



%**********************„„ „ _ _ „._„.__« 

REAL STREAM PROCEDURE INPC-NV(A)i VALUE A* 

6E_-l_t_siA«Aj Pl«"Lcc iNiPC ONv; ds^soct; em d; _^ .^._^__^ 

► ____■_*____________ . ----,***************************** 1kW# * # *** t4#####lt# Q Q l350a 



00013300 
. QQ0,3<K) __ 



X***** ****************** ************* ********** 

PROCEDURE TWXoUT(A,N*n* VALUE N*TJ REAL A,N»T; 00013600 

■■■_lA*-*_** *...***. * * * * * *** * *********** * ******** ************* ****************** ** nQ0l370Q 
BEGIN 00013800 

COMMUNICATEC-H); 00013900 

BRAAKIsBQQLEAN(T); X MCP RETURNS 1 I F BRE AK CCCUHRt D H 
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29 
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31 
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36 
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_»2i GJLJ_3i _ _ 
F c r""n n - s tan u a rd~ 

FILE RECORDS ARE 



RECORD "SIZE 
NQN-STaNqARD, 



JUMP OUT TO EXIT); 

sitasi+i; ds«=7chr; 

. EXIIX..- _. .... . _. . 

DStaLlT" »j SVI'DIJ $II«LOC Sv; OU*APTR; DS«»WOSi 
END STREAM PROCEDURE PLACE5TRING; 
X************* * ******* * *** ****** ************************************** 

STREAM PROCEDURE ~MESSAGE< aTtrTtyPE 1 > V _ a1'uE ' 7 YPVi : 

X********************************************************************* 
BEGIN LOCAL_SVi LABEL L0*L1 * lZ> L3*EXI T; 

biisAPfR; bH'Di+5; 01 i*dci 
ci»»ci+type; 

^go lo; GO u; GO 

LO* I TYPEsd, ERROR 
DSls37LIT ,, ERR0RJ 

........ GO EXlJi _„ 

Ll» X TYPE* 1, NUMBER OF RECORDS LOADED 

0S!«34LIT M REC0RDS LOADEDjLAST RECORD LOADED*"; 

.. . GO. EXII1. ._. _ _ __ 

L2* X TYPE=2# SEQUENCE ERROR 
DSl=16LIT M SEQUENCE ERRORS "J 

__fiD EXIT.; 

L3* X TYP£s3# SYSTEM ERROR 

DSt*30LIT"SYSTEM ERROR* FILE NOT LOADED*"* 

EXILI ... . _ _ _....._ _. 

sv:=di; sji»loc sv; di.»apth; ds:=*wqs; 

END STREAM PROCEDURE MESSAGE; 
...X*.* * *..*.* * *.*„*.. * ***..*.*_*. *.t*i***.i.***.i*.i.*j.jtL*iit*.*.*.*..t.*j| *. * **■*.*■■**■* ************** 

procedure parityerror(record); value record; real record; 

X* ****************************************************** ************** 

.- BE-GUsL _..,... :___ . _ . 

X CALLS ON AlGOL-REAO INTRINSIC TO OBTAIN PAR-NU LABEL MESSAGE 
X SO THAT "HELP/DISK" PROGRAM WILL aE CALLED 

!I.L£ ..D I SJ<. D.I_SK .R ANDOM C 2 , RPB , HDRQ . [ 1 5 : 1 5 3 ) ; 

FILL DISK WITH MFID'FID* 
DO BEGIN 

R.e a d cp isk [Record ).»]^j.hil}.\LJ.%LQE^*fLl!f3.!i^.tXi 

run iikiTt 1 [11 cr« ' * ""' ""'" 



00015000 
00015100 

...OO-Q j,520Q.. -- 

00015300 
00015400 

**QP0J.5500 

00015600 

**00015700 
00015800 
00615960 
00016000 

_-..0jQ.P.i6.1_QQ 
00016200 
00016300 

...0J)_G±6Uia 

00016500 
00016600 

- 001)16X00. 

00016800 
00016900 

... Q.QQ17QQQ 

00017100 
00017200 
00017 300 
00017400 
00017500 

**OG017510 
00017515 

**00017520 
— 000.12525 



end until false; 
end procedure parityerrgr; 



JL*.** **.*.*■* *j*.**. ..*■*.* *,.* *********** **** **** ***** ***** *_* * ***** ** **** *** **_* *_** 



* » w ******* * * * * * * ****_,**.* _***_*.* * * *.±*_* * * * * ** ** * * **.* *_* * ** * * 

P R C E OUR E oI'SkToTb U FF"7si"z E * 1 S K A D D R '» R E 3 U L T, MA S K ", «A T E ) i 

x***************************************************** 

VALUE BUFFrSIZ.E.»l3J.SKA.DJl.RAM.ASK 
INTEGER SIZ£»dISKaDDR»BUFF; REAL RE3UL T ,* aSKJ BOOLEAN WaTE* 
BEGIN 
.. ~ PRaCLEJlUR E..J OREOUEST(FINALMUD £SC* LUcaTION); 

value final., iodisc, location; real final, iqdesc, location; 
communicateud; 

- —REAL U Nil* llh UaI fl D __&_i_-AD£Ii 

REAL STREAM PROCEDURE aDRS(_UFF>D1SKaDDR )) 
BEGIN 

sh=loc diSkaddr; pxLa_l-£ Ei qsjsqdecj 



**************** 



V ALUT BUFF' DISK aDDR ; 



si»«loc oiskaodr; di»»loc adrs; ds*»8Dec; 
end stream procedure adrs; 

F BOOlEANC (O5 KA0RSt»A D RS(BUFF,0l$KAODR)).U*53) THEN 

BEGIN UNITI-19; T1NU««12; END ELSE BEGIN U'MT: = 18; TlNU- -, .... 
I0DJ*BUFF&SIZEC8*38»10]& 

((SlZE.C38> 10]»29) DiV 30*5 12 ) [ 16 « 33 U5 ]al[2« U7 I 1 111 I NU C 3> 43 t 5 3 ; 
RESULTJsADDRESSCRESULTi; 



000l753o 
00017535 
00017 540 
00017545 
00017550 
Q00l.7J5.55_ 

00017560 
00017565 

iJjQMlZAfliL 

00017700 
**00017800 

— QQOlZflflfl. 

00016000 
00018100 

... QQ018200 
00018300 
00018400 
00018500 
00018600 
00018700 

00018 B 00 



00018900 
00019000 
0Q01910Q 



t*»6; end; 



00019200 
00019300 
00019400 



RESULT «*ADDRESSC RESULT); 00019500 

I0REQUEST(-I00S3 W 347"[25I40»8JMQD # RESULT&UNITU2«42»6KU2I47IU); 00019600 
IF MATE T HEN WA IT ( AQQRsSS(RESULT )» MAS K ?; ^^^^^ ______^ 00019700 



v.. 

?| 

3 



1 /. 
it* 



END PROCEDURE 
%*****•********* 

JMkEAN PRQ.C ED UR 
%*************** 

real record; boo 

._ B.EG.I.N __. 

% READS DISK 
OWN REAL NEXT 

REAL. BUFFER.; 

DEFINE BUFFER 
OWN BOOLEAN S 

BOOLEAN F I Ul 

INTEGER OFFSE 
LABEL START#T 

* t »..*..• • • • t.f t *..». 

STREAM PROCED 

BEGIN Sits 

* t * • * t f • • • t ..t . 

PROCEDURE FIL 
X. 



OISKIOi 

•A***************************************************** 

E GETRECQRP(RECQ BDj iJtHEAL)J VAJ..g.E.. REC :.QRJJ ._# CERE ALJj 

************************************* ****************** 

LEAN CEREAL; 



FILE RECURD SEQUENCE FIELD INTO VARIABLE "SRCESEQ" 
RECOR0*RMiN1#RMiN2*«MAX1»RMAX2»Al)RSi#A0RS2; 



TEMPORARY STURAGE 



size*nextrecoro*; % 

ETT#VALlD#0Kl#OK2; 
'FILL2> 

f; 

ransfeR'Exit; 

.S..IL .*.,». ..ft. 1 .1 ft. l..t ..•..#. i.M ..t_t_S_f_«_»_S .«_*. JL»..*.. «. * ..* .♦. • 1 ...... 

URE MCVE(N#A#B); VAcUE N»Ai 

a; di»*b; dsi* n wos; end; 

• • ...•.. • .f J.J.f .1. t ,t,.A .1. .1. t I »..!.• « 1.J...I... *_t.J f 1. L.t I.. I. .♦,.», »...I..1.4.,*_*J_«..*-t_».-»...JLjl..t,J_t.^-».*...t. 

lbuffe r cbuff*R£Curd,resllt»rmin/Rmax);value buff* Record 



.,»...*.. •..JU..JL Jljt-«.XAJLJ.JL*.-4U*.j.. A. 1...1. 
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REAL BuFF^RECORD^RESULT'RMlN/RMAx; 
BEGIN LABEL EXIT; 
REAL BLOCIOROW; 

INTEGER S£Gme.mT*BL.OCKADDR£.SS; __ 

ROW:=(SEGMENTt = CBLQCK:=fibCURD. UI v KptUxsPfcO 01 V 3PR; 
IF ROW LEQ 19 THEN 

If .CBJLQC.KAPQRE5S»*QISKRQ»<&CRQ.»J) |\jEQ C TH&N 
BEGIN 

blockaddressjsBlockadoress+csegment moo sprj; 

D.LSK IQ1B.LLFJ^_.CRJ1S:^1IZ^ 



00019800 
*00019900 

QQ02 0Q0Q 
*00020lOO 

00020200 

Q-Q.Q.2Q.aQ.Q 
00020400 

00020500 

... OQ.0i0_6.QQ. 
00020700 
00020800 

...0DLQi.J_l9.C__L. 
00021000 
00021100 

,00021200 
000 21300 
00021400 

,00021500 

; 66021600 

.00021700 

. QflQiiaOO. 
00021900 

00022000 
QQQ__21QQ 

000^2200 
00022300 
00.02240.0 
00022500 
00022600 
-O.Q.Q227QLQ. 



EXITJ 



% 



RMAXl3(NEXTRECURDJ=(RMINIs6LQCK*RPB)+RPd)-i; 

go to exit; 

E.N.D1 _ „. ._ ..___ 

resulti«mask; rmin:*rmaxis-i; 

END . P ID CE.D.URE F ILLfljjFXtfll _ 



00022800 

00022900 

.0002 3000.. 



IF NOT SETT THEN 

BEGIN _ _ _ _ _ _ _ '___ 

RHlNiisFlMAXi • «RH IN2 t «RHA X2 > s -1J 

settj»true; 

end; % of initialize 

if record gtr eofptr or record lss then go to exit; 
if not oki then 

BEGIN 



00023100 
00023200 
-QOjQi-llQjQ 
,00023400 
00023500 
0QO2J60(_ 
00023700 
00023800 
00023900 



BUFFERltO]»*0; ADRSl»*ADDRESS(BUFFERHO. ); okii»true; 

end; 
if. cereal. ..and.. not 0k2 then. 

BEGIN 

BUFFER2.0] t=0; A0RS2«=ADURESS(BUFFER2L0]); 0K2:=TRUe; 

xnd; 



IF CEREAL AND NOT VALID THEN FHL2»*TRUE; It READING SERIALLY 

valio»scereal; 

START. 



IF RECORD GEQ RMlM AND RECORD Lt_ RMAX1 THEN 

BEGIN 
BUFF£R«aADR5li! 



00024000 
00024100 
OQ024200 
00024300 
00024400 
00024500 

00024600 

00024700 

JJiL0.24fl.Qj_. 

00024900 

00025000 
OJ3Q2510Q 

00025200 

00025300 
Q0025400 



IF NOT B0QLEANCRESULT1, [19113) THEN WAI TC ADDRESS. RESULTUlMASK )} Q0Q25500 
IF RESULT1,[28I23 N£0 THEN PAR ITYeRRORCRM iNi )J 00025510 

FILLl»«(RECORDaRMAxi) AND CEREAL* QQ025600 



li 



IP 



m • 



r 



>- 



« 

9 1 

hi 1 

h 

,.f 

1 

isj 

i 17 

us 
I'J 

*\ 

211 
,2:1 

i'4 

25, 
p(> 

r 7 

2S 
29 

30 

31 ~ 
U 
133 

r 4 ' 
ib 

31 "~ 

M 

i'J 

40 

11 

i'J. 

13 

44 

*S 

46 

)7 

W 

49 
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51 
52 
53 
54 



56 
56 
67 



GO to transfer; 
end; 

_ - IF £EREAJL...THEN IF RECORD G EU K mIn2 Afc.0 RECQRl LEG RMAXgjHtN 

BEGIN " " ~ "~ 

BUFFER»sADRS2; 
._ , ... 1 f ,._ N T_B 00 U EANCRE8ULT2,U9tl3) THEN W A I T C AUDRE.SSJ RE Skt T2 UMA S_K ) ; 

IF RESULJ2. [28:23 N£Q THEN PAR J T YERh'orcRM jNg); 

FILL2»s(REC0RDsRMAX2) AND CLRLAl; 
GQ TO__.TRAN.SfEJ.; 

end; ' 

IF NOT B00LEAN(RESULU.tl9lU) ThEN WAIT (ADDRESS (RESULT X ) 'MASK ); 

FI LLflUEF£RlAHB5XifiE£iJAD*.iJ£&U^ll.? HMIN 1>R MAX 1 ) ; 

IF CEREAL THEN 
BEGIN 

lil-MDI .B.a.0J.£AUXH£_SJJLl2.*.LL,^^ 

IF RESULT2,£2a»2] N£fl THEN PAR 1 TY£RRQR (RM IN2 )i 

F I LLBUFFERCA0RS2, NEXT RECORD, RESULT 2 »RM I N2#KMAx2)i 

END.1 _ _ 

fill2«=false; 
go to start; 

..I.RAN.S fe.;r.» _ __ __ ___ 

offset!' (record mod rpb )xrsi ze+ 1* " * 

srceseq.*inpcOnvcbuffer+bffset+sluloc); 

G-ETRE CORD *.*.!. RUE] 

IF FILL! THEN 
BEGIN 

- IF NQT BOQLEA.N.C.RFS..ULT 1* U.9U .1 ...IHUS W.A I T.C AP0B£.ss.tKtSJJLTl2iHA&(O '> 

IF RESUlT1,[28»23 NE- THEN PARI TYERRORC RMI Nl )i 
FILLBUFFER(ADRS1,NEXTREC0RD,RESULT1,RM1N1,RMA X 1); 

END J. _._. 

IF FILL2 THEN 

BEGIN 
- IF NOT BMkE_AN<.BLSy.tl^j l CjV|_l_3 )_ THL_N_ ftA I Ji aUDRE SSC RESUL.T2 >*„MA$,K ) i 

IF RESULT2.C28S23 Ne<3 THEN PAR n TERROR (R« IN2 ); 

FlLLBUFFERCADRS2,NEXTREC0HD,RtSULT2»RMlN2#HMAX2)J 

end; 

EXITS " " " " " 

END PROCEDURE GETRECORD/ 

A t 0] 7*0; APT R 1 «XsTARTprADO«ESsTA fo'V J"i"''~ ~~ ™ 

DlSKWAlT(l,A,30,C0MM0N)i C0MM0N«*OJ * ESP DISk RECORD 

.CONCISE _ »»_BOOLEANCAUl»tflUl" * CQNC I3E _QPT lOftl SET 

USER is At2); % USER CODE 

MFID Is A[3]; * FIRST NAME UF INPUT FILL 

FJ ! s AC43; % SECOND NAME OF I_N P U T FILE 

QljtCON IV C LI NE, At I 3 ♦ 1 4 : 8 3 ,F ALSE ) i % DEC I MAlTv ALUE " OF" lTNE~Nu"MB¥R 

TWX0uTCAt03#0,i); 

Al9ll3_-l; GE THE ADE R < A, MF ID, FID, USE H)_J 

IF A[03 LSS 6 THEN" "~ ~ " ~ ~ 

BEGIN 

Itn3;_G0 TO ERR; % SYSTEM E*RQR 



00025700 
00025800 

.0.00259 00 
00026000 
00026100 

.000262.00 
00026210 
00026300 
_Q.0y.k6 4.0.0 
00026500 
00026600 

.D0_0i_6.7_Q.Q 

00026800 
00026900 
OO02JL0I10 
00027010 
00027100 

.00022.20-0. 

00027300 

00027400 

.0.00.2.75 QQ. 

00027600 
00027700 
00.02.7.800 
00027900 
00028000 

00.0. ti a. 1.00 

00028110 
0002 8200 
0OQ?fl300~ 






00028400 
00028500 
00028600 

00028610 
00028700 
OjOOiflaOQ 

00028900 
00029000 
?.flfl_l_L9.1flfl_ 
00029200 
00029300 

.0.0.029109. 
00029500 
00029600 
00029700 



end; 

HDRO 
RSIZe 



00029000 

00029900 

00300 00 

000 30100" 

00030200 

00030300 



t= A CO 3' 

«- HDRO,£l»143; 



RPt> *= HDR0.C30U23; 
SPB »» HDR0.[42»63; 
EQFP TR la At 73; 



00030400 
00030500 
00030600 



SPR »* AC83; 
M0VE(20,AC10 3,DlSKR0WSt0 3); 
CEREAL L« C EQFPTR GTR 29) i 



00030700 
00030800 
00030900 



00031000 
00031100 
00031200 



< 



54 
55 

56 < 



>l 



IF (RSIZE NEQ 10 AND EOFPTR GEQ 0) LH CkPB GTR jU) "iHEN 

BEGIN X EMPTY OR NCN-ST Ai\jD ARD REuURQS 

UJLQ.L _ 

ERR J ME5SAGE(APTR»I)I % NON-STND FILE OR SYSTEM tRROR 

THXOUTCAt03#HSGSI2E»D; 

COMMON «aO & 1C2U7*J L 3_J % E R R_0 B__F_L A G J R CANOE 

go to exit; 
end; 

SMLQC!=?; 



i* MASK; X INITIALISE REoULT DESCRIPTOR 



,21 

26 

|27_ 
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Ml 
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33 
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37 

31! 
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141] 
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r 8 _ 
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RESULT! »= RESULT2 
1 LIU _ N E W T AB J I J H !?. 

BEGIN % INNER BLOCK 
LABEL READIN; 

PREV.SEQ := NCT L*_LRiC 

IF EOFPTR GEQ THEN 

WHILE GETRECORD((LREC»*LftEC+l)*CEH£AL) DO 

BEGIN . 

NCTl-NCT+i; % CUTPUT FILE *ECuK0 c«UN I 

IF SRCESEQ LEQ PREVSEQ THEN % OUT OF SEQUENCE 

IF NOT. BRAAK Ihili. - . 

BEGIN 

MESSAGECAf»TR#2); % SEQUENCE ERROR 

PLACESTRIHGUPlfi*PREViiEaAJHUE)i 

PLACESTRlNG(APTR*SRCESEQ>Ti^UE)i 

TWXOUT(A[OJ#fSGSUEM); 

end; 

IP NPTR:a\PTR+l GTR 29 THEN % Tab SEGMENT IS FILLED 
BEGIN 
w RJTECNEWTAB#20_*Nt*] )i 

npt"r:=g; 
end; 

NCNPTR]l_aO & NCTR: 32:16.1 _& _SRCE$E Q t 2j » 21 : 27 3 > 

PREVSEQ»="SRCESEc; " "" " 

END; % IF MORE RECORDS IN FILE 

IF NPTRl"NPTRtl GTR 29 THEN_* FULL TAB SEGMENT 
BEGIN 
WRITE(NEWTAB#3C,N[*]); 

._ NPTRlsO; 

end; 

NtNPTR3»sE0FMARK> 

WR I TEC NEWT AB#30»Nt *]);__ 

L C K ( N E ft if A B > * ) i 

END INNER BLOCK/ 
IF NOT CONCISE THEN_ 

BEGIN " ~ " 

PLACE5TRINGCAPTR#NCT+l,TRUEj; 
MESSAGECAPTR»|_); % num_ber_of becukqs LOADED 
PLACE STR I NG ( APTR* SRC t"SEQ# TRUE > ; 
TWX0UT(A[0]*MSGSI2E,» 1); 
END; % IF NOT CONCISE 



C 6 M M N » a C M M N & (NCT + UC3I3U5 3* * P A S S H E C Q I R D CO J NT T C A 
IF NOT B00LEAN(RESULT1.C19U3) THEN *AI TC ADDRESS C RESULT 1 ) ,M 
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END PROGRAM, 
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